home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / bbsxdemo.lzh / MENUS_80 / F7.SCR < prev    next >
Text File  |  1993-01-03  |  5KB  |  171 lines
  1. SCRIPT
  2.  
  3. ; Sample F6 Script file by R. Sanchez, C&R Systems.
  4. ; Modifications:  8 Jun 92, 16 Jun 92, 19 Jul 92, 17 Aug 92, 3 Oct 92
  5. ;
  6. ; This version created for The BBS Express! ST Demo, 3 Jan 93.
  7.  
  8. DEFINE User_input
  9. DEFINE Ch_drive
  10. DEFINE Ch_directory
  11. DEFINE Call_waiting_screen
  12.  
  13. MAIN_:
  14.  
  15. DEFAULT_PATH
  16. SET Call_waiting_screen = &70
  17. CLEAR SCREEN
  18.  
  19. PRINTE
  20. PRINTE '----------------------' CENTER
  21. PRINTE '-   Utilities Menu   -' CENTER
  22. PRINTE '----------------------' CENTER
  23. PRINTE 
  24. PRINTE '<A>  File Selector Box          ' CENTER
  25. PRINTE '<B>  Desk Accessories           ' CENTER
  26.    IF Call_waiting_screen = 'ON' THEN
  27.       PRINTE '<C>  Turn STATUS BOX OFF        ' CENTER
  28.    ELSE
  29.       PRINTE '<C>  Turn STATUS BOX ON         ' CENTER
  30.    ENDIF
  31.  
  32. PRINTE '<D>  Turn CHAT ON/OFF           ' CENTER
  33.  
  34. ; PRINTE '<D>  GMAP                       ' CENTER
  35. ; PRINTE '<E>  Hard Drive Test THEN REBOOT' CENTER
  36. ; PRINTE '<F>  Reboot System              ' CENTER
  37. ; PRINTE '<G>  ARC Shell                  ' CENTER
  38. ; PRINTE '<H>  Maxifile                   ' CENTER
  39. ; PRINTE '<I>  Load CALLERS LOG           ' CENTER
  40. ; PRINTE '<J>  Load Tempus II Only        ' CENTER
  41. ; PRINTE '<K>  Revive HP DJ printer       ' CENTER
  42.  
  43. PRINTE '<X>  Exit                       ' CENTER
  44. PRINTE
  45.  
  46. PRINT 'Enter Your Selection> ' CENTER
  47.  
  48.    ; Get a 1 key input from user and look for a match.
  49. GET_KEY User_input
  50.  
  51. PRINTE 'Working...'
  52.  
  53. IF User_input     = A
  54.    GOTO File_Selector_Box_
  55. ELSEIF User_input = B
  56.    GOTO Desk_Accessories_
  57. ELSEIF User_input = C
  58.    GOTO Change_status_box_
  59. ELSEIF User_input = D
  60.    GOTO Change_CHAT_
  61. ELSEIF User_input = E
  62.    TOS ('C:\HD_TEST\DISKDIAG\AUTOVER.TOS')
  63.    GEM ('D:\BBS_X\COLDBOOT.PRG')
  64. ELSEIF User_input = F
  65.    GEM ('D:\BBS_X\COLDBOOT.PRG')
  66. ELSEIF User_input = G
  67.    TTP ('C:\UTILS\ARCSHELL\ARCSHELL.PRG')
  68. ELSEIF User_input = H
  69.    GEM ('C:\MAXIFILE\MAXIFILE.PRG')
  70. ELSEIF User_input = I
  71.    TTP ('T', 'LOG.TXT')
  72. ELSEIF User_input = J
  73.    TTP ('T')
  74. ELSEIF User_input = K
  75.    GEM ('C:\DESK_JET\DJET_SET\REVIVE.PRG')
  76.  
  77. ELSEIF User_input = X
  78.    GOTO EOF:
  79. ENDIF
  80.  
  81. GOTO Main_
  82.  
  83. EOF:
  84.   DEFAULT_PATH
  85.   CLOSE
  86.   EXIT
  87.  
  88. Change_status_box_:
  89.    PRINT 'Turning STATUS BOX '
  90.    IF Call_waiting_screen = 'ON' THEN
  91.       PRINTE 'off...'
  92.       STATUS_BOX (OFF)
  93.    ELSE
  94.       PRINTE 'on...'
  95.       STATUS_BOX (ON)
  96.    ENDIF
  97.    GOTO Main_:
  98.  
  99. File_Selector_Box_:
  100.    DEFAULT_PATH
  101.    IF FILE_EXISTS 'D:\BBSXDEMO\CFS.PRG' THEN
  102.       GEM ('D:\BBSXDEMO\CFS.PRG')
  103.    ELSE
  104.       PRINTE
  105.       PRINTE
  106.       PRINTE
  107.       PRINTE ' I can not locate the file CFS.PRG in the path:        ' CENTER
  108.       PRINTE '                                                       ' CENTER
  109.       PRINTE '      D:\\BBSXDEMO\\                                     ' CENTER
  110.       PRINTE '                                                       ' CENTER
  111.       PRINTE ' The file should be in the archive "CFS_101.LZH",      ' CENTER
  112.       PRINTE ' In File Sig 2, Utilities...                           ' CENTER
  113.       PRINTE '                                                       ' CENTER
  114.       PRINTE '                                                       ' CENTER
  115.       PRINTE '                                                       ' CENTER
  116.    ENDIF
  117.    PRINTE
  118.    PRINTE '<PRESS ANY KEY TO CONTINUE>' CENTER
  119.    GET_KEY User_input
  120.    GOTO Main_:
  121.  
  122.  
  123. Desk_Accessories_:
  124.    DEFAULT_PATH
  125.    IF FILE_EXISTS 'D:\BBSXDEMO\X_DA.PRG' THEN
  126.       GEM ('D:\BBSXDEMO\X_DA.PRG')
  127.    ELSE
  128.       PRINTE
  129.       PRINTE
  130.       PRINTE
  131.       PRINTE ' I can not locate the file X_DA.PRG in the path:       ' CENTER
  132.       PRINTE '                                                       ' CENTER
  133.       PRINTE '      D:\\BBSXDEMO\\                                     ' CENTER
  134.       PRINTE '                                                       ' CENTER
  135.       PRINTE ' The file should be in the archive "X_DA101.LZH",      ' CENTER
  136.       PRINTE ' In File Sig 2, Utilities...                           ' CENTER
  137.       PRINTE '                                                       ' CENTER
  138.       PRINTE '                                                       ' CENTER
  139.       PRINTE '                                                       ' CENTER
  140.    ENDIF
  141.    PRINTE
  142.    PRINTE '<PRESS ANY KEY TO CONTINUE>' CENTER
  143.    GET_KEY User_input
  144.    GOTO Main_:
  145.  
  146. Change_CHAT_:
  147.    PRINTE
  148.    PRINTE '<A>  Turn CHAT ON ' CENTER
  149.    PRINTE '<B>  Turn CHAT OFF' CENTER
  150.    PRINTE
  151.    PRINTE '<X>  Exit         ' CENTER
  152.    PRINTE
  153.  
  154.    GET_KEY User_input
  155.  
  156.    IF User_input = A
  157.       PRINTE 'Turning CHAT on...'
  158.       CHAT (ON)
  159.    ELSEIF User_input = B
  160.       PRINTE 'Turning CHAT off...'
  161.       CHAT (OFF)
  162.    ELSEIF User_input = X
  163.       PRINTE 'Exiting to Main Menu...'
  164.       GOTO Main_:
  165.    ELSE
  166.       PRINTE 'Invalid Input...'
  167.    ENDIF
  168.  
  169.    GOTO Change_CHAT_:
  170.  
  171.